0 CLR
2 PRINT"[147]"POKE53280,6:POKE53281,6
10 REM THREE REASONS
20 FORL=54272 TO 54295:POKEL,0:NEXT:POKE54296,15
30 POKE54277,8:POKE54278,255:POKE54276,23
40 F1=100:F2=4
50 FOR Z=1 TO 3:POKE54287,F2
60 FOR F1=1TO200
70 POKE54273,F1:F2=F2+.01
80 NEXT F1,Z
90 POKE54278,15